home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The X-Philes (2nd Revision)
/
The X-Philes Number 1 (1995).iso
/
xphiles
/
hp48_2
/
asc.unt
/
comp.sys.handhelds_3043_000000.msg
Wrap
Internet Message Format
|
1991-04-12
|
2KB
Path: en.ecn.purdue.edu!noose.ecn.purdue.edu!samsung!zaphod.mps.ohio-state.edu!casbah.acns.nwu.edu!ucsd!mvb.saic.com!ncr-sd!sdd.hp.com!hp-pcd!hpcvra.cv.hp.com!rnews!hpcvbbs!akcs.dnickel
From: akcs.dnickel@hpcvbbs.UUCP (Derek Scott Nickel)
Newsgroups: comp.sys.handhelds
Subject: upload test (ASC\-> unthreaded)
Message-ID: <277440fd:1502comp.sys.handhelds@hpcvbbs.UUCP>
Date: 23 Dec 90 05:40:07 GMT
Lines: 46
well, now that I've said that its to hard to upload to this conf, I
though that I should try again. If all goes well, the rest of this note
will contain an unthreaded ASC\->...
Derek S. Nickel
ASC\->
80000: 02D9D ! Program
80005: 1592D ; Set last RPL token to <0h> and verify DEPTH >= 1
8000A: 18FB2 ; Check arguments for type
8000F: 0400D ; <3h>
80014: 02D9D ! Program
80019: [...] ! # 0000h
80027: 06657 ; Internal NEWOB
8002C: 62747 ; Internal SWAP and DUP
80031 60F9B ; drop level two object
80077: [...] ! "Invalid String"
8009D: 1A339 ; DOERR (XLIB 2 42)
800A2: 0312B ! End Marker
800A7: 03DE0 ; Internal - (2:System Binary,1:System Binary)
800AC: 055DF ; ""
800B1: 032C2 ; Internal OVER
800B6: 61C1C ; allocate nibbles (2:sized object,1:System Binary)
800BB: 03223 ; Internal SWAP
; ***D8 B=A A ; B.A = size-1
800E6: 143 A=DAT1 A ; A.A = adr of alloc str
800E9: 130 D0=A ; D0 = adr of alloc str
800EC: 169 D0=D0+ 10 ; D0 = adr of new object (alloc
str data)
800EF: 132 AD0EX ; A.A = adr of new object
800F2: 130 D0=A ; ...
800F5: 141 DAT1=A A ; adjust stack to new object
800F8: 174 D1=D1+ 5 ; A = adr of orig 03188 ;
Internal DUP
80179: 05944 ; Internal BYTES (non-ROM objects) -> (2:System
Binary,1:Binary Integer)
8017E: 60F9B ; drop level two object
80183: 60FBB ; Internal 4 ROLL
80188: 63CFE ; if SAME, then do next/return, else skip next
8018D: 60F9B ; drop level two object
80192: 03244 ; Internal DROP
80197: [...] ! "Invalid String"
801BD: 1A339 ; DOERR (XLIB 2 42)
801C2: 0312B ! End Marker
801C7: 0312B ! End Marker